home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / circular2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  855 b   |  35 lines
  1. 5 REM CIRCULAR2
  2. 10 REM PROGRAM TO SHOW MOTION OF BALL
  3. 20 DATA0,0,0,0,0,0,0,112,0
  4. 30 DATA3,254,0,15,255,128,31,255,192
  5. 40 DATA63,255,224,63,255,224,127,255,240
  6. 50 DATA127,255,240,127,255,240,63,255,224
  7. 60 DATA63,255,224,31,255,192,15,255,128
  8. 70 DATA3,254,0,0,112,0,0,0,0
  9. 80 DATA0,0,0,0,0,0,0,0,0
  10. 100 REM SET UP SPRITE DESCRIPTION
  11. 110 FOR J=0TO62
  12. 120 READA: POKE 832+J,A
  13. 130 NEXTJ
  14. 140 V=53248 :REM SET BASE ADDRESS
  15. 150 POKE 2040,13:REM SET POINTER TO DESCRIPTION
  16. 155 PRINT"[147]":REM CLEAR SCREEN
  17. 160 POKE V+33,1:REM SET BACKGROUND
  18. 170 POKE V+39,0:REM SET  COLOUR
  19. 180 POKE V+23,0:POKEV+29,0:REM EXPAND
  20. 190 DIM XP(80),YP(80)
  21. 200 FOR N=1TO80
  22. 210 T= 4.5*N*(null)/180
  23. 220 XP(N)=170+100*SIN(T):YP(N)=130-80*COS(T)
  24. 230 NEXTN
  25. 240 POKEV+21,1 :REM ENABLE SPRITE
  26. 250 FOR N=1 TO 80
  27. 260 REM LOOP STARTS HERE
  28. 270 X=XP(N):Y=YP(N)
  29. 280 POKE V+1,Y
  30. 290 POKE V+0,X AND 255: REM PUT SPRITE THERE
  31. 300 IF X >=256 THEN POKE V+16,1:GOTO320
  32. 310 POKE V+16,0
  33. 320 NEXTN
  34. 330 GOTO240 :REM REPEAT MOVEMENT
  35.